home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 54.zip / BS part 54 / FinalCopyII.adf / SampleMacros / DeleteTOEndOfLine < prev    next >
Encoding:
Text File  |  1992-09-02  |  610 b   |  27 lines
  1. /* ---------------------------------------------------    */
  2. /* Final Copy II Arexx Macro - DELETE TO END OF LINE    */
  3. /* This macro will delete text from the insertion        */
  4. /* point to the end of the line that the insertion    */
  5. /* point is in.                                */
  6. /* ---------------------------------------------------    */
  7. Options Results
  8.  
  9. /* ----------------------------------------------    */
  10. /* Don't do any thing if a range is selected.    */
  11. /* ----------------------------------------------    */
  12. Status Position
  13. pos = Result
  14. IF    ( WORDS(pos) = 4 ) THEN
  15.     EXIT
  16.  
  17. AltDown
  18. CtrlDown
  19. ShiftDown
  20. Cursor Right
  21. AltUp
  22. CtrlUp
  23. ShiftUp
  24.  
  25. Clear
  26.  
  27.